home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / SOLID4.IRT < prev    next >
Text File  |  1991-11-18  |  1KB  |  68 lines
  1. #
  2. # This solid was taken from: Geometric Modeling,
  3. # by Michael E. Mortenson page 468, figure 10.34
  4. #
  5. #                Created by Gershon Elber,    Feb 89
  6. # 
  7. #   Be patient - this one takes about 15 minutes on my 12Mhz 286 with co-pro.
  8. #
  9.  
  10. tm = time(true);
  11.  
  12. save_mat = view_mat;
  13. save_res = resolution;
  14.  
  15. # normal(TRUE, 0.1, RED);
  16.  
  17. resolution = 8;
  18. T1 = CYLIN(vector( -1.1, 0.0, 0.0), vector(  2.2, 0.0, 0.0), 0.1);
  19. T2 = CYLIN(vector( -0.8, 0.0, 0.0), vector( 0.05, 0.0, 0.0), 0.15);
  20. T3 = CYLIN(vector(  0.8, 0.0, 0.0), vector(-0.05, 0.0, 0.0), 0.15);
  21.  
  22. S1 = T1 + T2 + T3;
  23. free(T1);
  24. free(T2);
  25. free(T3);
  26. S1 = convex(S1);
  27. beep(800,200);
  28. view(list(S1), true);
  29.  
  30. S2 = S1 * roty(90);
  31. S3 = S1 * rotz(90);
  32. beep(800,200);
  33. view(list(S2, S3), false);
  34.  
  35. S4 = S1 + S2 + S3;
  36. free(S1);
  37. free(S2);
  38. free(S3);
  39. beep(800,200);
  40. view(list(S4), true);
  41.  
  42. resolution = 20;
  43. T4 = sphere(vector(0.0, 0.0, 0.0), 1.0);
  44.  
  45. S5 = T4 - S4;
  46. free(S4);
  47. free(T4);
  48.  
  49. final = convex(S5);
  50. free(S5);
  51.  
  52. tm = time(false);
  53. tm; # In Seconds
  54.  
  55. interact(list(final), false);
  56.  
  57. save("solid4", list(view_mat,final));
  58.  
  59. # Now make the box cut out of it:
  60. T5 = box(vector(-0.01, -0.01, -0.01), 1.5, 1.5, 1.5);
  61. cut = final - T5;
  62. cut = convex(cut);
  63.  
  64. save("solid4c", list(view_mat,cut));
  65.  
  66. view_mat = save_mat;
  67. resolution = save_res;
  68.